home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MAIL.SWG / 0015_MkMsg Bugs.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  1KB  |  40 lines
  1. {
  2. For all who work with the MkMsg toolbox and it's JAM unit, I share my
  3. experience with the deleting of messages.
  4.  
  5. Despite a bugfix on this very subject from 1.02 to 1.03, I still cannot
  6. delete messages properly. I found out that the basis of the problem is the
  7. handling of the IDX file. First of all, the number of bytes written to the
  8. IDX file was invalid and, secondly, a real bug was in the handling of the
  9. "sub text" where an array is declared as "array [1..xx]" and used as "array
  10. [0..xx], causing a field in a record to be overriden to an invalid value.
  11.  
  12. These are the changes I made to my MKMSGJAM.PAS file.
  13.  
  14. Line 150:
  15. Change
  16.   TxtSubBuf: Array[1..TxtSubBufSize] of Char; {temp storage ... }
  17. Into
  18.   TxtSubBuf: Array[0..TxtSubBufSize-1] of Char; {temp storage ... }
  19.  
  20. Line 831:
  21. Change
  22.     If JM^.TxtSubChars <= TxtSubBufSize Then
  23. Into
  24.     If JM^.TxtSubChars <= TxtSubBufSize-1 Then
  25.  
  26. Line 838:
  27. Change
  28.     If JM^.TxtSubChars <= TxtSubBufSize Then
  29. Into
  30.     If JM^.TxtSubChars <= TxtSubBufSize-1 Then
  31.  
  32. Line 1490:
  33. Change
  34.   BlockWrite(JM^.IdxFile, JamIdx^, JamIdxBufSize);
  35. Into
  36.   BlockWrite(JM^.IdxFile, JamIdx^, JM^.IdxRead);
  37.  
  38. Keep on jammin' !
  39.  
  40.